Option Explicit
Sub O_Sample012()
    Dim myRef As VBIDE.Reference
    For Each myRef In ThisWorkbook.VBProject.References
        With myRef
            Debug.Print .Name, .FullPath, .IsBroken
        End With
    Next
End Sub